﻿Public Class CintieConsole

    Public Event WrittenConsole(ByVal e As Object)
    Public Event TakenConsole(ByVal Text As String)

    Public Sub Write(ByVal Ob As Object)
        Console.Write("cf >")
        Console.WriteLine(Ob)
        RaiseEvent WrittenConsole(Ob)
    End Sub

    Public Function Read() As String
        Console.WriteLine("cf?>")
        Dim _ip As String = Console.ReadLine
        RaiseEvent TakenConsole(_ip)
        Return (_ip)
    End Function
End Class
